home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / qqmail4a.zip / QQMAIL4M.SCR < prev    next >
Text File  |  1991-11-22  |  4KB  |  139 lines
  1. ;  QQMAIL4M.SCR:  SCRIPT for Qmodem 4.2 F or Qmodem 4.3x
  2. ;  for the QMAIL 4 Door on Salt Air PCBoard BBS
  3. ;  REVISED  Fri  11-22-1991  21:04
  4.  
  5. ; This is a Linked Qmodem Script (which means you put the name of the
  6. ; script in your Qmodem Dialing Directory).  See the attached README
  7. ; file for detailed instructions.
  8.  
  9. ; It will log you onto the Salt Air BBS, go into the QMAIL4 Door, upload
  10. ; your replies, download your new mail, including repeat downloads
  11. ; providing you have enabled them, return you to PCBoard, and leave you
  12. ; at the Command prompt.  For a script that will log you off Salt Air,
  13. ; use the companion script in this package (QQMAIL4A.SCR).
  14.  
  15. ; ***Please see the attached README file for information on how to
  16. ; configure the QMAIL4 Door to work with this script.
  17.  
  18. ; ***YOU MUST EDIT THIS SCRIPT to put in your personal information
  19. ; before you can use it.  Make sure to save it in pure ASCII form,
  20. ; without the formatting codes that word processors commonly insert.
  21.  
  22. ;  This script is by Carol ".BATs"  Whitney   V^\_ o^o_/^V
  23. ;  It may be used freely, edited, and passed around.
  24.  
  25. ; ========================================================================
  26.  
  27. STRING HOLNAM PAK DOR PROT ULDIR DLDIR LOGFILE CAPFILE QMDIR
  28. ASSIGN PAK SALTAIR
  29. ASSIGN DOR QMAIL4
  30.  
  31. ; ===== EDIT the section below to put in your own information ==========
  32.  
  33. ;  *** Path names MUST include the trailing backslash ***
  34. ;  Do not add backslashes to the end of the LOGFILE or  CAPFILE assignments
  35.  
  36. ASSIGN HOLNAM   "FirstName LastName"  ;your name as you log onto Salt Air
  37. ASSIGN PROT     Z                     ;your QMAIL4 protocol selection letter
  38. ASSIGN ULDIR    C:\QMODEM\UL\         ;path of your SALTAIR.REP packets
  39. ASSIGN DLDIR    C:\QMODEM\DL\         ;path of your SALTAIR.QWK packets
  40. ASSIGN QMDIR    C:\QMODEM\            ;path to your Qmodem files
  41. ASSIGN LOGFILE  C:\LOG\QMODEM.LOG     ;filespec for your QMODEM.LOG file
  42. ASSIGN CAPFILE  D:\ACTIVE\CAPTURE.CAP ;filespec for you Qmodem capture file
  43.  
  44. ; ====== end editable portion of script [unless you wish to play :-)] ======
  45.  
  46. TurnOFF LOG
  47. LOG $LOGFILE
  48. TurnOFF CAPTURE
  49. Capture $CAPFILE
  50. NOTE This is QQMAIL4M.SCR
  51. STAMP This is QQMAIL4M.SCR
  52. Graphics ANSI
  53. TurnON   8_BIT NOISE SCROLL STATUSLN
  54. TurnOFF  LINEFEED XON/XOFF MUSIC PRINT ECHO SPLIT BS_DEL DOORWAY
  55. TimeOut  120
  56.  
  57. When
  58.  
  59. When     "raphics (Enter)=no?"            "n q^M"
  60. When     "ince 'Last Read' (Enter)=yes?"  "n^M"
  61. When     "Press (Enter) to continue"      "^M"
  62. When     "(H)elp, More?"                  "^M"
  63.  
  64. Waitfor  "your first name?"
  65. Delay 100
  66. Send   "$HOLNAM^M"
  67.  
  68. Waitfor  "Password"
  69. Delay 200
  70. Send  "$PASSWORD^M"
  71.  
  72. Waitfor  "ommand"
  73. Delay 100
  74. Send     "^M"
  75.  
  76. GOSUB DOIT
  77.  
  78. WHEN
  79. Waitfor  "ommand"
  80. Delay 100
  81. Send "^M"
  82.  
  83. Waitfor  "ommand?"
  84. Delay 100
  85. Exit
  86.  
  87. DOIT:
  88.  
  89. OPEN:
  90. WHEN
  91. Waitfor  "ommand"
  92. Delay    100
  93. Send     "$DOR^M"
  94. Waitfor  "<COMMAND>"
  95. Delay    100
  96. Send     "V^M"
  97. Timeout 360
  98. SENDUP:
  99. When  "to continue"   "^M"
  100. When     "<NO TRANSFER>"  SKIPDL
  101. Waitfor  "<COMMAND>"
  102. Delay    100
  103. EXIST     $ULDIR$PAK.REP UPLYES
  104. ATWRITE   35,15,78,"                                    "
  105. ATWRITE   35,16,78,"   There is no $PAK.REP to upload.  "
  106. ATWRITE   35,17,78,"                                    "
  107. GOTO     SCANMAIL
  108. UPLYES:
  109. Send     "u^M"
  110. Waitfor  "<UPLOAD>"
  111. Delay    200
  112. Upload   $PROT $ULDIR$PAK.REP
  113. When "<UL ERROR>" UPLYES
  114.  
  115. ; A routine to delete your SALTAIR.REP may be added here, such as:
  116.  
  117. ; DOS "del $ULDIR$PAK.REP"
  118. ; NOTE $PAK.REP deleted!
  119. ; Send   "^M"
  120.  
  121. SENDDOWN:
  122. Waitfor  "<COMMAND>"
  123. SCANMAIL:
  124. Delay    100
  125. Send     "D;Y^M"
  126. DLOK:
  127. DLAUTO:
  128. When     "<COMMAND>"      SKIPDL
  129. When     "<NO TRANSFER>"  SKIPDL
  130. Waitfor  "<DOWNLOAD>"
  131. Delay 100
  132. Download $PROT $DLDIR
  133. GOTO DLOK
  134. SKIPDL:
  135. Delay    100
  136. Send "q^M"
  137. NODOOR:
  138. RETURN
  139.